home *** CD-ROM | disk | FTP | other *** search
/ Holt Researcher: American History / Holt Researcher: American History.iso / pc / modules / tour.dxr / 00003_tour menu buttons.ls < prev    next >
Encoding:
Text File  |  2000-01-21  |  643 b   |  25 lines
  1. property ancestor, pButtonName
  2. global gSection
  3.  
  4. on new me, buttonName, castName, theChannel, theStageLoc, descendant
  5.   if objectp(descendant) then
  6.     ancestor = new(script("generic button"), buttonName, castName, theChannel, theStageLoc, descendant)
  7.   else
  8.     ancestor = new(script("generic button"), buttonName, castName, theChannel, theStageLoc, me)
  9.   end if
  10.   pButtonName = buttonName
  11.   return me
  12. end
  13.  
  14. on performFunction me
  15.   global gMenuList
  16.   repeat with X = 30 to 35
  17.     menuObj = getaProp(gMenuList, X)
  18.     outScope(menuObj)
  19.   end repeat
  20.   updateStage()
  21.   gSection = pButtonName
  22.   go(label(pButtonName))
  23.   getAudioFile(the frame)
  24. end
  25.